home *** CD-ROM | disk | FTP | other *** search
/ Amiga Format CD 22 / Amiga Format AFCD22 (Jan 1998, Issue 106).iso / -seriously_amiga- / shareware / graphics / logoenhancer / logoenhancer.rexx < prev    next >
OS/2 REXX Batch file  |  1997-11-05  |  2KB  |  103 lines
  1. /* LogoEnhancer.rexx  $VER: 1.02 (22.10.1997) 
  2.           Image Engineer Macro script         
  3.            © 1996/97 Ralf Schönfeldt        */
  4.  
  5. /* This script creates a 3D-bevel or neon-effect on logos etc...
  6.    Note: Make sure the background colour of the selected picture is
  7.          plain black and that there is some space around the object! */
  8.  
  9. OPTIONS RESULTS
  10. ADDRESS VALUE 'IMAGEENGINEER'
  11. SIGNAL ON Error
  12.  
  13. IF ARG()==0 THEN EXIT
  14.  
  15. 'FORM "LogoEnhancer" "Ok|Cancel"',
  16. ' CYCLE,"Method:","Bevel|Neon",0',
  17. ' CYCLE,"Size:","3 (small)|5 (middle)|7 (large)",0',
  18. ' INTEGER,"Contrast-Adjustment (Bevel):",0,50,50,SLIDER',
  19. ' CHECKBOX,"Sharpen (Bevel method only)",1',
  20. ' CYCLE,"Color (Neon method only):","As it is|Blue|Red|Green|Yellow|Magenta|Cyan",0'
  21.  
  22. PARSE VAR RESULT OK Method Mode BContrast BSharp NColor
  23. IF OK=0 THEN EXIT
  24.  
  25. Mode=Mode+1
  26. Size=Mode*2+1
  27.  
  28. Pic=ARG(1)
  29. IF Method=0
  30.     THEN DO
  31.         IF Mode=3 THEN Size=5
  32.         LOWPASS Pic 3 3
  33.         Pic1=RESULT
  34.         MINIMUM Pic1 Size Size
  35.         Pic2=RESULT
  36.         MARK Pic2 PRIMARY
  37.         MARK Pic1 SECONDARY
  38.         COMPOSITE Mode Mode DIFFERENCE
  39.         Pic3=RESULT
  40.         CLOSE Pic1
  41.         MARK Pic3 PRIMARY
  42.         MARK Pic2 SECONDARY
  43.         COMPOSITE 0 0 ADD
  44.         Pic4=RESULT
  45.         CLOSE Pic2
  46.         CLOSE Pic3
  47.         IF BContrast>0
  48.             THEN DO
  49.                 MARK Pic PRIMARY
  50.                 MARK Pic4 SECONDARY
  51.                 COMPOSITE 0 0 MIX BContrast
  52.                 Pic5=RESULT
  53.                 CLOSE Pic4
  54.                 Pic4=Pic5
  55.             END
  56.         IF BSharp=1
  57.             THEN DO
  58.                 HIGHBOOST Pic4 95 3 3
  59.                 Pic5=RESULT
  60.                 CLOSE Pic4
  61.             END
  62.     END
  63.     ELSE DO
  64.         MAXIMUM Pic Size Size
  65.         Pic1=RESULT
  66.         LOWPASS Pic1 Size Size
  67.         Pic2=RESULT
  68.         SELECT
  69.             WHEN NColor=1 THEN BOp="-120 RED GREEN"
  70.             WHEN NColor=2 THEN BOp="-120 GREEN BLUE"
  71.             WHEN NColor=3 THEN BOp="-120 RED BLUE"
  72.             WHEN NColor=4 THEN BOp="-255 BLUE"
  73.             WHEN NColor=5 THEN BOp="-200 GREEN"
  74.             WHEN NColor=6 THEN BOp="-200 RED"
  75.             OTHERWISE BOp="-40 INTENSITY"
  76.         END
  77.         BRIGHTNESS Pic2 BOp
  78.         Pic3=RESULT
  79.         MARK Pic PRIMARY
  80.         MARK Pic3 SECONDARY
  81.         COMPOSITE 0 0 MAX
  82.         Pic4=RESULT
  83.         CLOSE Pic1
  84.         CLOSE Pic2
  85.         CLOSE Pic3
  86.     END
  87.  
  88. EXIT
  89.  
  90. Error:
  91. IF RC=5 THEN DO
  92.     IE_TO_FRONT
  93.     LAST_ERROR
  94.     'REQUEST "'||RESULT||'"'
  95.     EXIT
  96. END
  97. ELSE DO
  98.     IE_TO_FRONT
  99.     LAST_ERROR
  100.     'REQUEST "Error detected!!!'||D2C(10)||'Image Engineer error message is as follows'||D2C(10)||RESULT||D2C(10)||'Script failed on line '||SIGL||'"' 'Doh!'
  101.     EXIT
  102. END
  103.